home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5300.txt < prev    next >
Text File  |  1994-03-01  |  3KB  |  58 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:DEFCHR$(255)="0000FE0000":e=0:f=0:c=0:d=0:g=0:h=0:l$=CHR$(5):GOSUB580
  3. 20 a=e:b=f
  4. 30 x=a:GOSUB530:a=x:x=b:GOSUB530:b=x
  5. 50 IFb<0 THENa$=" -" ELSEa$=" +"
  6. 60 LOCATE0,0:c$=STR$(a):IFa THENd$=STR$(ABSb) ELSEd$=STR$(b)
  7. 70 IFABSb=1 THENd$=MID$(d$,1,1)
  8. 80 PRINTl$;:IFb=0 THENPRINTc$;ELSE IFa=0 THENPRINTd$;"i"; ELSEPRINTc$;a$;d$;"i";
  9. 90 LOCATE26,1:z=ASC(INPUT$(1)):IFz>96 THENz=z-32
  10. 100 ONz-41 GOTO260,260,,260,600,260,,,,,,,,,,,,,,,,,,220,,380,,,,420,,480,,,400,360,,,,,,500,,,,,,,,,,,450
  11. 110 GOTO90
  12. 220 CLS:PRINT"Complex number  A(a+bi)";
  13. 230 e$="a":x=a:GOSUB520:a=x:e$="b":x=b:GOSUB520:b=x:GOSUB580:GOTO50
  14. 260 CLS:PRINT"Complex number  B(c+di)";
  15. 270 e$="c":x=c:GOSUB520:c=x:e$="d":x=d:GOSUB520:d=x
  16. 290 GOSUB580:ONz-41 GOTO310,320,,330,,340
  17. 310 e=a*c-b*d:f=b*c+a*d:GOTO20
  18. 320 e=a+c:f=b+d:GOTO20
  19. 330 e=a-c:f=b-d:GOTO20
  20. 340 e=(a*c+b*d)/(c*c+d*d):f=(b*c-a*d)/(c*c+d*d):GOTO20
  21. 360 g=a:h=b:GOTO30
  22. 380 e=a:f=b:a=c:b=d:c=e:d=f:GOTO30
  23. 400 a=g:b=h:GOTO30
  24. 420 e=SQR(a*a+b*b):f=ACS(a/e):IFb THENf=f*SGN(b)
  25. 430 CLS:PRINT"r =";e;TAB(0);"é =";f;:a$=INPUT$(1,@):GOSUB580:GOTO50
  26. 450 e=a*a-b*b:f=2*a*b:GOTO20
  27. 480 e=a/(a*a+b*b):f=-b/(a*a+b*b):GOTO20
  28. 500 IFb=0 THENIFa<0 THENf=SQR(-a):e=0:GOTO20 ELSEe=SQRa:f=0:GOTO20
  29. 510 IFb<>0 THENx=SQR(a*a+b*b):e=SQR((a+x)/2):f=b/(2*e):GOTO20
  30. 520 LOCATE0,1:PRINTl$;e$;"=";x;"?";:INPUT@14;x:LOCATE0,0
  31. 530 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-8)
  32. 540 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-8):x=x/1e10
  33. 550 RETURN
  34. 580 CLS:LOCATE0,1:PRINT">A,G,I,S,^,+,-,*,/,M,L,C ?";:RETURN
  35. 600 CLS:GOSUB710:i=2
  36. 610 PRINT:ONi GOSUB710,715,720,730,740,750,760,770,780,800,810,820
  37. 620 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN690
  38. 630 IFz<>13 ANDz<>30 ANDz<>31 THEN620
  39. 640 IF(z=30 ANDi=1) OR(z=31 ANDi=12) THEN620
  40. 650 IFz=30 THENi=i-2
  41. 680 i=i+1:IFi<13 THEN610
  42. 690 GOSUB580:GOTO50
  43. 710 PRINT" A : input A";:RETURN
  44. 715 PRINT" G : Gauss  r=ïAï:é=argument(A)";:RETURN
  45. 720 PRINT" I : inverse         1/A  A";:RETURN
  46. 730 PRINT" S : square root     ûA  A";:RETURN
  47. 740 PRINT" ^ : square          Aý  A";:RETURN
  48. 750 PRINT" + : addition        A+B  A";:RETURN
  49. 760 PRINT" - : subtraction     A-B  A";:RETURN
  50. 770 PRINT" * : multiplication  A*B  A";:RETURN
  51. 780 PRINT" / : division        A/B  A";:RETURN
  52. 800 PRINT" M : memory          A  M";:RETURN
  53. 810 PRINT" L : load            A  M";:RETURN
  54. 820 PRINT" C : change          A  B";:RETURN
  55. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  56. 1010 IFERL=520 THENRESUME520
  57. 1030 LOCATE0,0:PRINTl$;"not found";:a$=INPUT$(1,@):RESUME690
  58.